home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
MOVIES
/
MOVIES.DIR
/
00050_Script_50
< prev
next >
Wrap
Text File
|
1995-11-15
|
4KB
|
178 lines
on idle
showHilite
--goMovieGo
pass
end idle
on exitFrame
go to the frame
end
on patchpal
global gMovFixpal
if the machineType <> 256 then gMovFixpal(mPatchIt)
end patchpal
on startMovie
global gCom
set gCom = 0
setLocalVariables
buildMovieButtons
buildMovieList
newMovie
end startMovie
on newMovie
global gMovieLabel, gPageIndex, gRandomMovies, gMovieList, gRanMovieIndex
global gMovieTimeCO, gMovieTimeCR, gMovieTimeFO, gMovieTimeSP
if the frame > 1 and the frameLabel <> "" then set gMovieLabel = the frameLabel
if voidP(gMovieLabel) then put "cos" into gMovieLabel
if gMovieLabel = "O" then
set gRandomMovies = 1
set gMovieList = ["cos", "CRS", "FOS", "SPS"]
repeat with i = 1 to 16
set rNum = random(3)
set a = getAt(gMovieList, rNum)
deleteAt(gMovieList, rNum)
add(gMovieList, a)
end repeat
set gRanMovieIndex = 1
set gMovieLabel = getAt(gMovieList, gRanMovieIndex)
else
set gRandomMovies = 0
end if
go frame (label(gMovieLabel)-1)
puppetTransition 50,1,120,false
go next
patchpal
--addToRetrace
put 0 into gPageIndex
updateStage
set movieTime = 0
do "set movieTime = gMovieTime"&char 1 to 2 of gMovieLabel
if movieTime > 0 then continue
if gRandomMovies then playMovie
end newMovie
on stopMovie
global gMovFixpal
set the visible of sprite 9 to true
set the visible of sprite 10 to true
--if the machineType <> 256 then gMovFixpal(mDispose)
--closeXlib "FixPalette XObj"
puppetSprite 15, 0
updateStage
unload
end stopMovie
on setLocalVariables
global gMovieIsPlaying, gRetraceNames, gVolume
global gCurrChan,gFirsChan,gLastChan,gPrevHilite,gMovFixpal
if voidP(gRetraceNames) then put empty into gRetraceNames
--if voidP(gVolume) then put 7 into gVolume
put false into gMovieIsPlaying
set the visible of sprite 9 to false
set the visible of sprite 10 to false
if the machineType <> 256 then
openxlib "FixPalette XObj"
set gMovFixpal=FixPalette(mNew, the stageLeft, the stageTop, the stageRight, the stageTop)
end if
put 0 into gPrevHilite
put 2 into gCurrChan
put 2 into gFirsChan
put 11 into gLastChan
end setLocalVariables
on addToRetracexxxx
global gMovieList,gRetraceNames,gLastRetraceName
global gRetraceLabels, gMovieLabel, gPageIndex
put the frameLabel into gMovieLabel
put [] into it
do "put findpos(gMovieList,#"&gMovieLabel&") into it"
put getAt(getAt(gMovieList,it),1) into retraceName
if gLastRetraceName = retraceName then exit
put the number of lines in gRetraceNames into nr
put gLastRetraceName into line(nr+1) of gRetraceNames
put gMovieLabel into line(nr+1) of gRetraceLabels
if nr = 15 then
delete line 1 of gRetraceNames
delete line 1 of gRetraceLabels
put retraceName into gLastRetraceName
end if
end addToRetrace
on getDescr N
-- searches the data in the list for the product then returns the description
-- you could make similar handlers for other values in the property lists.
global Data
if not listP(Data) then set Data = value(field "data")
repeat with P in Data
if the Prod of P = N then return ( the Desc of P )
end repeat
end
on delay howLong
startTimer
repeat while the timer < howLong
end repeat
end delay
on retraceLocal
global gMovieIsPlaying
set m = the movie
set f = the frame
if gMovieIsPlaying then
cursor 4
set pausedMovie = 1
pauseMovie 1
cursor -1
end if
retrace
if the movie = m then
if f = the frame then
if pausedMovie then
playMovie
end if
else
updateStage
patchpal
end if
end if
end
on doContentsLocal
global gMovieIsPlaying
if gMovieIsPlaying then
cursor 4
set pausedMovie = 1
pauseMovie 1
cursor -1
set m = the movie
set f = the frame
end if
doContents
if pausedMovie then
if the movie = m and f = the frame then playMovie
end if
-- go movie "TOC.DIR"
-- abort
end contents